home *** CD-ROM | disk | FTP | other *** search
/ Publication 13 / Publication_13_19xx_Civitas_de_Side_B.d64 / hoogo.anl (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 10 cr$=chr$(13):li$="[163][163][163][163][163][163][163][163][163][163]":li$=li$+li$+li$+li$:s=1
  2. 20 poke53280,11:poke53281,12:print"[144][147]="s"=  [203]urzanleitung [200]oogo-[211]prite"
  3. 30 print"[214]erzeiht die hirnrissige [194]edienung...."cr$li$
  4. 40 print"  1 bis 7 oder [211]pace ==> [211]eite waehlen "
  5. 50 poke2023,160
  6. 60 ons gosub100,200,300,400,500,600,700
  7. 70 poke198,0:wait198,1:geta$:a=val(a$):ifa>0anda<8thens=a:goto20
  8. 80 if a$=" "thens=s+1:s=s+7*(s>7):goto20
  9. 90 goto70
  10. 100 print"[193]lles wird ueber [212]astatur gesteuert."cr$
  11. 110 print"[198]1[146] bringt einen (meistens) weiter,"cr$"[198]3[146] meistens zurueck."
  12. 120 printcr$" [218]unaechst mal eine [199]rafik laden,"
  13. 130 print"dann kommt man zur [215]ahl des [193]usschnitts"
  14. 199 return
  15. 200 print"[199]rafikausschnitt waehlen"cr$li$
  16. 210 print"[205]          [205]ulti [197]in/[193]us"
  17. 220 print"[198]7/[198]8      [200]intergrundfarbe"
  18. 223 print"[198]5/[198]6      [214]ordergrundfarben"
  19. 227 print"[210]eturn     [197]cke waehlen"
  20. 229 print"[198]3         [218]urueck"
  21. 230 print"[198]1         [215]eiter,falls schon moeglich"
  22. 299 return
  23. 300 print"[208]ixeleditor"cr$li$
  24. 310 print"[198]arbtasten [218]eichenfarbe"
  25. 320 print"_          [198]arbe unter [195]ursor"
  26. 330 print"[213]          [213]ndo - '[198]arbe'"
  27. 340 print"[198]3         [218]urueck"
  28. 350 print"[198]1         [215]eiter"
  29. 399 return
  30. 400 print"[211]pritegrabber"cr$li$
  31. 410 print"[198]arbtasten [211]pritefarbe"
  32. 420 print"[198]5/[198]7      [205]ulticolorfarben"
  33. 430 print"[216]/[217]        [197]xpand"
  34. 440 print"1 bis 8    [211]pritenummer"
  35. 450 print"[205]          [205]ulti / [200]ires"
  36. 451 print"[210]eturn     [199]rab"
  37. 452 print"[208]          [208]rioritaeten"
  38. 453 print"[198]1         [194]ild"
  39. 454 print"[198]2         [211]pritememory"
  40. 455 print"[198]3         [218]urueck"
  41. 499 return
  42. 500 print"[208]rioritaeten "cr$li$
  43. 510 print"[215]erden benoetigt, wenn mehrere
  44. 520 [153]"peekildpunkte zu einem (NULL)pritepunkt
  45. 530 print"gemacht werden muessen, z.[194]. bei
  46. 540 [153]"valxpanded oder (NULL)ulticolor.
  47. 550 print"[210]echts stehen [198]arben hoher [208]rioritaet"
  48. 551 print"[198]arbtasten [198]arbe einfuegen
  49. 552 [153]"(NULL)eturn     (NULL)urueck
  50. 599 return
  51. 600 print"[194]ild"cr$li$
  52. 610 print"[198]7/[198]8      [198]arbe
  53. 620 [153]"asc3         (NULL)urueck
  54. 630 print"1 bis 8    [211]priteprioritaet
  55. 640 [153]"asc5         peekild valin/atnus
  56. 699 return
  57. 700 print"[211]pritespeicher"cr$li$
  58. 710 print"[210]eturn     [211]prite -> [211]peicher
  59. 720 [153]"(NULL)h/(NULL)etrun  (NULL)peicher -> (NULL)prite
  60. 730 print"1 bis 8    [211]prite waehlen
  61. 740 [153]"asc3         (NULL)urueck
  62. 750 print"[211]          [211]ave
  63. 760 [153]"atnchtung !wait"cr$" (NULL)ave 1-126 saves 1 bis 126
  64. 770 print" [211]ave 126-1 saves 126,127,0,1 !!!"
  65. 799 return
  66.